﻿Public Class Frmprimoavvio

    Dim strchangelog As New System.IO.StreamReader(Application.StartupPath & "\Changelog.txt")
    Dim stream As String

    Private Sub Frmprimoavvio_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        While Not strchangelog.EndOfStream
            Dim riga As String = strchangelog.ReadLine
            stream += riga & vbCrLf
        End While
        TextBox1.Text = stream

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            System.IO.File.Create(Application.StartupPath & "\primoavvio")
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class